clear; clc; close all

arrRow{1}  = {'E9200','E9201','E9202','E9203','E9204','E9205','E9208','E9209','E9560','E9660','E9740','E9860'};
arrRow{2}  = {'E8300','E8301','E8302','E8303','E8304','E8305','E8306','E8308','E8309','E8320','E8321','E8322','E8323','E8324','E8325','E8326','E8328','E8329','E9100','E9101','E9102','E9103','E9104','E9108','E9109','E9540','E9640','E9840'};
arrRow{3}  = {'E8820'};
arrRow{4}  = {'E8842','E8844','E8845'};
arrRow{5}  = {'E8800','E8801','E8810','E8811','E8830','E8831','E8832','E8839','E8841','E8843','E8846','E8849','E9570','E9571','E9572','E9579','E9681','E9870','E9871','E9872','E9879'};
arrRow{6}  = {'E8880','E8880','E8881','E8888','E8889'};
arrRow{7}  = {'E8840'};
arrRow{8}  = {'E8850','E8850','E8851','E8852','E8853','E8854','E8859','E8860','E8869'};
arrRow{9}  = {'E8809'};
arrRow{10} = {'E8900','E8901','E8902','E8903','E8908','E8909','E8910','E8911','E8912','E8913','E8918','E8919','E8920','E8930','E8931','E8932','E8938','E8939','E8940','E8950','E8960','E8970','E8980','E8981','E8990','E9240','E9241','E9242','E9248','E9249','E9581','E9582','E9587','E9610','E9680','E9683','E9881','E9882','E9887'};
arrRow{11} = {'E9220','E9221','E9222','E9223','E9224','E9228','E9229','E9550','E9551','E9552','E9553','E9554','E9650','E9651','E9652','E9653','E9654','E9700','E9850','E9851','E9852','E9853','E9854'};
arrRow{12} = {'E9190'};
arrRow{13} = {'E9191','E9192','E9193','E9194','E9195','E9196','E9197','E9198','E9199'};
arrRow{14} = {'E8105','E8115','E8125','E8135','E8145','E8155','E8165','E8175','E8185','E8195'};
arrRow{15} = {'E8106','E8116','E8126','E8136','E8146','E8156','E8166','E8176','E8186','E8196'};
arrRow{16} = {'E8102','E8103','E8112','E8113','E8122','E8123','E8132','E8133','E8142','E8143','E8152','E8153','E8162','E8163','E8172','E8173','E8182','E8183','E8192','E8193'};
arrRow{17} = {'E8100','E8101','E8104','E8110','E8111','E8114','E8120','E8121','E8124','E8130','E8131','E8134','E8140','E8141','E8144','E8150','E8151','E8154','E8160','E8161','E8164','E8170','E8171','E8174','E8180','E8181','E8184','E8190','E8191','E8194'};
arrRow{18} = {'E8108','E8118','E8128','E8138','E8148','E8158','E8168','E8178','E8188','E8198'};
arrRow{19} = {'E8107','E8117','E8127','E8137','E8147','E8157','E8167','E8177','E8187','E8197'};
arrRow{20} = {'E8109','E8119','E8129','E8139','E8149','E8159','E8169','E8179','E8189','E8199','E9585','E9685','E9885'};
arrRow{21} = {'E8013','E8023','E8033','E8043','E8053','E8063','E8073','E8206','E8216','E8226','E8236','E8246','E8256','E8261','E8269'};
arrRow{22} = {'E8002','E8012','E8022','E8032','E8042','E8052','E8062','E8072','E8207','E8217','E8227','E8237','E8247','E8257','E8260','E8270','E8280','E8290'};
arrRow{23} = {'E8210','E8210','E8211','E8212','E8213','E8214','E8215','E8218','E8219'};
arrRow{24} = {'E8000','E8001','E8008','E8009','E8010','E8010','E8011','E8018','E8019','E8020','E8020','E8021','E8028','E8029','E8030','E8030','E8031','E8038','E8039','E8040','E8040','E8041','E8048','E8049','E8050','E8050','E8051','E8058','E8059','E8060','E8060','E8061','E8068','E8069','E8070','E8070','E8071','E8078','E8079','E8200','E8201','E8202','E8203','E8204','E8205','E8208','E8209','E8220','E8220','E8221','E8222','E8223','E8224','E8225','E8228','E8229','E8230','E8230','E8231','E8232','E8233','E8234','E8235','E8238','E8239','E8240','E8240','E8241','E8242','E8243','E8244','E8245','E8248','E8249','E8250','E8250','E8251','E8252','E8253','E8254','E8255','E8258','E8259','E8262','E8263','E8264','E8268','E8272','E8273','E8274','E8278','E8279','E8282','E8284','E8288','E8289','E8294','E8298','E8299','E8310','E8311','E8312','E8313','E8314','E8315','E8316','E8318','E8319','E8330','E8331','E8332','E8333','E8334','E8335','E8336','E8338','E8339','E8340','E8340','E8341','E8342','E8343','E8344','E8345','E8346','E8348','E8349','E8350','E8350','E8351','E8352','E8353','E8354','E8355','E8356','E8358','E8359','E8360','E8360','E8361','E8362','E8363','E8364','E8365','E8366','E8368','E8369','E8370','E8370','E8371','E8372','E8373','E8374','E8375','E8376','E8378','E8379','E8380','E8380','E8381','E8382','E8383','E8384','E8385','E8386','E8388','E8389','E8400','E8401','E8402','E8403','E8404','E8405','E8406','E8407','E8408','E8409','E8410','E8410','E8411','E8412','E8413','E8414','E8415','E8416','E8417','E8418','E8419','E8420','E8426','E8427','E8428','E8429','E8430','E8430','E8431','E8432','E8433','E8434','E8435','E8436','E8437','E8438','E8439','E8440','E8440','E8441','E8442','E8443','E8444','E8445','E8446','E8447','E8448','E8449','E8450','E8450','E8458','E8459','E9586','E9886'};
arrRow{25} = {'E9000','E9001','E9009','E9010','E9010','E9011','E9018','E9019','E9020','E9020','E9021','E9022','E9028','E9029','E9030','E9040','E9041','E9042','E9043','E9049','E9050','E9050','E9051','E9052','E9053','E9054','E9055','E9056','E9057','E9058','E9059','E9060','E9060','E9061','E9062','E9063','E9064','E9065','E9068','E9069','E9070','E9080','E9080','E9081','E9082','E9083','E9084','E9088','E9089','E9090','E9090','E9091','E9092','E9093','E9094','E9098','E9099','E9280','E9281','E9282','E9283','E9583','E9883'};    
arrRow{26} = {'E8003'};
arrRow{27} = {'E8500','E8501','E8502','E8503','E8504','E8505','E8506','E8507','E8508','E8509','E8510','E8520','E8521','E8522','E8523','E8524','E8525','E8528','E8529','E8530','E8530','E8531','E8532','E8538','E8539','E8540','E8540','E8541','E8542','E8543','E8548','E8550','E8551','E8552','E8553','E8554','E8555','E8556','E8558','E8559','E8560','E8570','E8580','E8581','E8582','E8583','E8584','E8585','E8586','E8587','E8588','E8589','E8600','E8601','E8602','E8603','E8604','E8608','E8609','E8610','E8610','E8611','E8612','E8613','E8614','E8615','E8616','E8619','E8620','E8620','E8621','E8622','E8623','E8624','E8629','E8630','E8630','E8631','E8632','E8633','E8634','E8635','E8636','E8637','E8638','E8639','E8640','E8640','E8641','E8642','E8643','E8644','E8650','E8651','E8652','E8653','E8654','E8655','E8658','E8659','E8660','E8660','E8661','E8662','E8663','E8664','E8665','E8666','E8667','E8668','E8669','E8670','E8680','E8681','E8682','E8683','E8688','E8689','E8690','E8690','E8691','E8692','E8693','E8694','E8698','E8699','E9500','E9501','E9502','E9503','E9504','E9505','E9506','E9507','E9508','E9509','E9510','E9510','E9511','E9518','E9520','E9521','E9528','E9529','E9620','E9621','E9622','E9629','E9720','E9800','E9801','E9802','E9803','E9804','E9805','E9806','E9807','E9808','E9809','E9810','E9810','E9811','E9818','E9820','E9821','E9828','E9829'};
arrRow{28} = {'E9160'};
arrRow{29} = {'E9170'};
arrRow{30} = {'E9171','E9172','E9173','E9174','E9175','E9176','E9177','E9178','E9179','E9600','E9682','E9730','E9750'};
arrRow{31} = {'E9110','E9120','E9130','E9131','E9132','E9133','E9138','E9139','E9530','E9531','E9538','E9539','E9630','E9830','E9831','E9838','E9839'};
arrRow{32} = {'E9670','E9671','E9672','E9673','E9674','E9675','E9676','E9677','E9678','E9679'};
arrRow{33} = {'E8460','E8470','E8480','E9140','E9150','E9180','E9210','E9211','E9218','E9219','E9225','E9230','E9231','E9232','E9238','E9239','E9250','E9251','E9252','E9258','E9259','E9260','E9260','E9261','E9262','E9263','E9264','E9265','E9268','E9269','E9290','E9291','E9292','E9293','E9294','E9295','E9555','E9556','E9557','E9559','E9580','E9584','E9601','E9655','E9656','E9657','E9658','E9659','E9684','E9686','E9687','E9710','E9780','E9790','E9791','E9792','E9793','E9794','E9795','E9796','E9797','E9798','E9799','E9855','E9856','E9857','E9880','E9884','E9900','E9909','E9910','E9910','E9911','E9912','E9913','E9919','E9920','E9930','E9940','E9960','E9970','E9971','E9972'};
arrRow{34} = {'E9270','E9288','E9298','E9588','E9590','E9688','E9690','E9770','E9888','E9890','E9950','E9978','E9980','E9990','E9991'};
arrRow{35} = {'E8870','E9289','E9299','E9589','E9689','E9760','E9889','E9979'};
arrRow{36} = {'E8500','E8501','E8502','E8503','E8504','E8505','E8506','E8507','E8508','E8509','E8510','E8520','E8521','E8522','E8523','E8524','E8525','E8528','E8529','E8530','E8530','E8531','E8532','E8538','E8539','E8540','E8540','E8541','E8542','E8543','E8548','E8550','E8551','E8552','E8553','E8554','E8555','E8556','E8558','E8559','E8560','E8570','E8580','E8581','E8582','E8583','E8584','E8585','E8586','E8587','E8588','E8589','E9500','E9501','E9502','E9503','E9504','E9505','E9800','E9801','E9802','E9803','E9804','E9805'};
arrRow{37} = {'E8700','E8701','E8702','E8703','E8704','E8705','E8706','E8707','E8708','E8709','E8710','E8710','E8711','E8712','E8713','E8714','E8715','E8716','E8717','E8718','E8719','E8720','E8720','E8721','E8722','E8723','E8724','E8725','E8726','E8728','E8729','E8730','E8730','E8731','E8732','E8733','E8734','E8735','E8736','E8738','E8739','E8740','E8740','E8741','E8742','E8743','E8744','E8745','E8748','E8749','E8750','E8750','E8751','E8752','E8758','E8759','E8760','E8760','E8761','E8762','E8763','E8764','E8765','E8768','E8769','E8780','E8781','E8782','E8783','E8784','E8785','E8786','E8788','E8789','E8790','E8790','E8791','E8792','E8793','E8794','E8795','E8796','E8797','E8798','E8799','E9300','E9301','E9302','E9303','E9304','E9305','E9306','E9307','E9308','E9309','E9310','E9310','E9311','E9312','E9313','E9314','E9315','E9316','E9317','E9318','E9319','E9320','E9320','E9321','E9322','E9323','E9324','E9325','E9326','E9327','E9328','E9329','E9330','E9330','E9331','E9332','E9333','E9334','E9335','E9338','E9339','E9340','E9340','E9341','E9342','E9343','E9344','E9345','E9346','E9347','E9348','E9349','E9350','E9350','E9351','E9352','E9353','E9354','E9355','E9356','E9357','E9358','E9359','E9360','E9360','E9361','E9362','E9363','E9364','E9370','E9371','E9372','E9373','E9374','E9375','E9376','E9378','E9379','E9380','E9380','E9381','E9382','E9383','E9384','E9385','E9386','E9387','E9389','E9390','E9390','E9391','E9392','E9393','E9394','E9395','E9396','E9397','E9398','E9399','E9400','E9400','E9401','E9408','E9409','E9410','E9410','E9411','E9412','E9413','E9419','E9420','E9420','E9421','E9422','E9423','E9424','E9425','E9426','E9427','E9428','E9429','E9430','E9430','E9431','E9432','E9433','E9434','E9435','E9436','E9438','E9439','E9440','E9440','E9441','E9442','E9443','E9444','E9445','E9446','E9447','E9450','E9451','E9452','E9453','E9454','E9455','E9456','E9457','E9458','E9460','E9461','E9462','E9463','E9464','E9465','E9466','E9467','E9468','E9469','E9470','E9470','E9471','E9472','E9473','E9474','E9478','E9479','E9480','E9480','E9481','E9482','E9483','E9484','E9485','E9486','E9488','E9489','E9490','E9490','E9491','E9492','E9493','E9494','E9495','E9496','E9497','E9499'};


for i = 1:size(arrRow,2),
    arrRowi = arrRow{i};
    for ii = 1:length(arrRowi),
        if(length(arrRowi{ii}) == 4)
            arrRowi{ii} = [arrRowi{ii}, '0'];
        end
    end
    arrRow{i} = arrRowi;
end


for i = 1:size(arrRow,2),
    for j = 1:size(arrRow,2),
        if(i ~= j)
            mat{i,j} = intersect(arrRow{i},arrRow{j});
            if(length(mat{i,j}) > 0)
                [i, j]
                [mat{i,j}];
            end
        end
    end
end

arrRowAll = [];
for i = 1:size(arrRow,2)
    arrRowAll = [arrRowAll, [arrRow{i}]];
end
arrRowAll = unique(arrRowAll);

arrCol{1} = {'E9600','E9601','E9610','E9620','E9621','E9622','E9629','E9630','E9640','E9650','E9651','E9652','E9653','E9654','E9655','E9656','E9657','E9658','E9659','E9660','E9670','E9671','E9672','E9673','E9674','E9675','E9676','E9677','E9678','E9679','E9680','E9681','E9682','E9683','E9684','E9685','E9686','E9687','E9688','E9689','E9690','E9790','E9791','E9792','E9793','E9794','E9795','E9796','E9797','E9798','E9799','E9600','E9630','E9650','E9660','E9680','E9640'};
arrCol{2} = {'E8700','E8701','E8702','E8703','E8704','E8705','E8706','E8707','E8708','E8709','E8710','E8710','E8711','E8712','E8713','E8714','E8715','E8716','E8717','E8718','E8719','E8720','E8720','E8721','E8722','E8723','E8724','E8725','E8726','E8728','E8729','E8730','E8730','E8731','E8732','E8733','E8734','E8735','E8736','E8738','E8739','E8740','E8740','E8741','E8742','E8743','E8744','E8745','E8748','E8749','E8750','E8750','E8751','E8752','E8758','E8759','E8760','E8760','E8761','E8762','E8763','E8764','E8765','E8768','E8769','E8780','E8781','E8782','E8783','E8784','E8785','E8786','E8788','E8789','E8790','E8790','E8791','E8792','E8793','E8794','E8795','E8796','E8797','E8798','E8799','E9300','E9301','E9302','E9303','E9304','E9305','E9306','E9307','E9308','E9309','E9310','E9310','E9311','E9312','E9313','E9314','E9315','E9316','E9317','E9318','E9319','E9320','E9320','E9321','E9322','E9323','E9324','E9325','E9326','E9327','E9328','E9329','E9330','E9330','E9331','E9332','E9333','E9334','E9335','E9338','E9339','E9340','E9340','E9341','E9342','E9343','E9344','E9345','E9346','E9347','E9348','E9349','E9350','E9350','E9351','E9352','E9353','E9354','E9355','E9356','E9357','E9358','E9359','E9360','E9360','E9361','E9362','E9363','E9364','E9370','E9371','E9372','E9373','E9374','E9375','E9376','E9378','E9379','E9380','E9380','E9381','E9382','E9383','E9384','E9385','E9386','E9387','E9389','E9390','E9390','E9391','E9392','E9393','E9394','E9395','E9396','E9397','E9398','E9399','E9400','E9400','E9401','E9408','E9409','E9410','E9410','E9411','E9412','E9413','E9419','E9420','E9420','E9421','E9422','E9423','E9424','E9425','E9426','E9427','E9428','E9429','E9430','E9430','E9431','E9432','E9433','E9434','E9435','E9436','E9438','E9439','E9440','E9440','E9441','E9442','E9443','E9444','E9445','E9446','E9447','E9450','E9451','E9452','E9453','E9454','E9455','E9456','E9457','E9458','E9460','E9461','E9462','E9463','E9464','E9465','E9466','E9467','E9468','E9469','E9470','E9470','E9471','E9472','E9473','E9474','E9478','E9479','E9480','E9480','E9481','E9482','E9483','E9484','E9485','E9486','E9488','E9489','E9490','E9490','E9491','E9492','E9493','E9494','E9495','E9496','E9497','E9499','E9700','E9710','E9720','E9730','E9740','E9750','E9760','E9770','E9780','E9900','E9909','E9910','E9910','E9911','E9912','E9913','E9919','E9920','E9930','E9940','E9950','E9960','E9970','E9971','E9972','E9978','E9979','E9980','E9990','E9700','E9730','E9740','E9750','E9760','E9780'};
arrCol{3} = {'E9500','E9501','E9502','E9503','E9504','E9505','E9506','E9507','E9508','E9509','E9510','E9510','E9511','E9518','E9520','E9521','E9528','E9529','E9530','E9531','E9538','E9539','E9550','E9551','E9552','E9553','E9554','E9555','E9556','E9557','E9559','E9570','E9571','E9572','E9579','E9580','E9581','E9582','E9583','E9584','E9585','E9586','E9587','E9588','E9589','E9590','E9540','E9560','E9560','E9580','E9570','E9550'};
arrCol{4} = {'E9800','E9801','E9802','E9803','E9804','E9805','E9806','E9807','E9808','E9809','E9810','E9810','E9811','E9818','E9820','E9821','E9828','E9829','E9830','E9831','E9838','E9839','E9840','E9850','E9851','E9852','E9853','E9854','E9855','E9856','E9857','E9860','E9870','E9871','E9872','E9879','E9880','E9881','E9882','E9883','E9884','E9885','E9886','E9887','E9888','E9889','E9890','E9860','E9880','E9840'};
arrCol{5} = {'E8000','E8001','E8002','E8003','E8008','E8009','E8010','E8010','E8011','E8012','E8013','E8018','E8019','E8020','E8020','E8021','E8022','E8023','E8028','E8029','E8030','E8030','E8031','E8032','E8033','E8038','E8039','E8040','E8040','E8041','E8042','E8043','E8048','E8049','E8050','E8050','E8051','E8052','E8053','E8058','E8059','E8060','E8060','E8061','E8062','E8063','E8068','E8069','E8070','E8070','E8071','E8072','E8073','E8078','E8079','E8100','E8101','E8102','E8103','E8104','E8105','E8106','E8107','E8108','E8109','E8110','E8110','E8111','E8112','E8113','E8114','E8115','E8116','E8117','E8118','E8119','E8120','E8120','E8121','E8122','E8123','E8124','E8125','E8126','E8127','E8128','E8129','E8130','E8130','E8131','E8132','E8133','E8134','E8135','E8136','E8137','E8138','E8139','E8140','E8140','E8141','E8142','E8143','E8144','E8145','E8146','E8147','E8148','E8149','E8150','E8150','E8151','E8152','E8153','E8154','E8155','E8156','E8157','E8158','E8159','E8160','E8160','E8161','E8162','E8163','E8164','E8165','E8166','E8167','E8168','E8169','E8170','E8170','E8171','E8172','E8173','E8174','E8175','E8176','E8177','E8178','E8179','E8180','E8180','E8181','E8182','E8183','E8184','E8185','E8186','E8187','E8188','E8189','E8190','E8190','E8191','E8192','E8193','E8194','E8195','E8196','E8197','E8198','E8199','E8200','E8201','E8202','E8203','E8204','E8205','E8206','E8207','E8208','E8209','E8210','E8210','E8211','E8212','E8213','E8214','E8215','E8216','E8217','E8218','E8219','E8220','E8220','E8221','E8222','E8223','E8224','E8225','E8226','E8227','E8228','E8229','E8230','E8230','E8231','E8232','E8233','E8234','E8235','E8236','E8237','E8238','E8239','E8240','E8240','E8241','E8242','E8243','E8244','E8245','E8246','E8247','E8248','E8249','E8250','E8250','E8251','E8252','E8253','E8254','E8255','E8256','E8257','E8258','E8259','E8260','E8261','E8262','E8263','E8264','E8268','E8269','E8270','E8272','E8273','E8274','E8278','E8279','E8280','E8282','E8284','E8288','E8289','E8290','E8294','E8298','E8299','E8300','E8301','E8302','E8303','E8304','E8305','E8306','E8308','E8309','E8310','E8311','E8312','E8313','E8314','E8315','E8316','E8318','E8319','E8320','E8321','E8322','E8323','E8324','E8325','E8326','E8328','E8329','E8330','E8331','E8332','E8333','E8334','E8335','E8336','E8338','E8339','E8340','E8340','E8341','E8342','E8343','E8344','E8345','E8346','E8348','E8349','E8350','E8350','E8351','E8352','E8353','E8354','E8355','E8356','E8358','E8359','E8360','E8360','E8361','E8362','E8363','E8364','E8365','E8366','E8368','E8369','E8370','E8370','E8371','E8372','E8373','E8374','E8375','E8376','E8378','E8379','E8380','E8380','E8381','E8382','E8383','E8384','E8385','E8386','E8388','E8389','E8400','E8401','E8402','E8403','E8404','E8405','E8406','E8407','E8408','E8409','E8410','E8410','E8411','E8412','E8413','E8414','E8415','E8416','E8417','E8418','E8419','E8426','E8427','E8428','E8429','E8430','E8430','E8431','E8432','E8433','E8434','E8435','E8436','E8437','E8438','E8439','E8440','E8440','E8441','E8442','E8443','E8444','E8445','E8446','E8447','E8448','E8449','E8450','E8450','E8458','E8459','E8460','E8470','E8480','E8500','E8501','E8502','E8503','E8504','E8505','E8506','E8507','E8508','E8509','E8510','E8520','E8521','E8522','E8523','E8524','E8525','E8528','E8529','E8530','E8530','E8531','E8532','E8538','E8539','E8540','E8540','E8541','E8542','E8543','E8548','E8550','E8551','E8552','E8553','E8554','E8555','E8556','E8558','E8559','E8560','E8570','E8580','E8581','E8582','E8583','E8584','E8585','E8586','E8587','E8588','E8589','E8600','E8601','E8602','E8603','E8604','E8608','E8609','E8610','E8610','E8611','E8612','E8613','E8614','E8615','E8616','E8619','E8620','E8620','E8621','E8622','E8623','E8624','E8629','E8630','E8630','E8631','E8632','E8633','E8634','E8635','E8636','E8637','E8638','E8639','E8640','E8640','E8641','E8642','E8643','E8644','E8650','E8651','E8652','E8653','E8654','E8655','E8658','E8659','E8660','E8660','E8661','E8662','E8663','E8664','E8665','E8666','E8667','E8668','E8669','E8670','E8680','E8681','E8682','E8683','E8688','E8689','E8690','E8690','E8691','E8692','E8693','E8694','E8698','E8699','E8800','E8801','E8809','E8810','E8810','E8811','E8820','E8830','E8831','E8832','E8839','E8840','E8840','E8841','E8842','E8843','E8844','E8845','E8846','E8849','E8850','E8850','E8851','E8852','E8853','E8854','E8859','E8860','E8869','E8870','E8880','E8880','E8881','E8888','E8889','E8900','E8901','E8902','E8903','E8908','E8909','E8910','E8910','E8911','E8912','E8913','E8918','E8919','E8920','E8930','E8931','E8932','E8938','E8939','E8940','E8950','E8960','E8970','E8980','E8981','E8990','E9000','E9001','E9009','E9010','E9010','E9011','E9018','E9019','E9020','E9020','E9021','E9022','E9028','E9029','E9030','E9040','E9041','E9042','E9043','E9049','E9050','E9050','E9051','E9052','E9053','E9054','E9055','E9056','E9057','E9058','E9059','E9060','E9060','E9061','E9062','E9063','E9064','E9065','E9068','E9069','E9070','E9080','E9080','E9081','E9082','E9083','E9084','E9088','E9089','E9090','E9090','E9091','E9092','E9093','E9094','E9098','E9099','E9100','E9101','E9102','E9103','E9104','E9108','E9109','E9110','E9120','E9130','E9131','E9132','E9133','E9138','E9139','E9140','E9150','E9160','E9170','E9171','E9172','E9173','E9174','E9175','E9176','E9177','E9178','E9179','E9180','E9190','E9191','E9192','E9193','E9194','E9195','E9196','E9197','E9198','E9199','E9200','E9201','E9202','E9203','E9204','E9205','E9208','E9209','E9210','E9211','E9218','E9219','E9220','E9221','E9222','E9223','E9224','E9225','E9228','E9229','E9230','E9231','E9232','E9238','E9239','E9240','E9241','E9242','E9248','E9249','E9250','E9251','E9252','E9258','E9259','E9260','E9260','E9261','E9262','E9263','E9264','E9265','E9268','E9269','E9270','E9280','E9281','E9282','E9283','E9288','E9289','E9290','E9291','E9292','E9293','E9294','E9295','E9298','E9299','E9991','E8200','E8280','E8290','E8420','E8460','E8470','E8480','E8550','E8650','E8800','E8820','E8830','E8860','E8870','E8920','E8940','E8950','E8960','E8970','E8990','E9070','E9110','E9020','E8940','E9120','E9130','E9140','E9150','E9160','E9170','E9180','E9190','E9200','E9270','E9230','E8560'};


for i = 1:size(arrCol,2),
    arrColi = arrCol{i};
    for ii = 1:length(arrColi),
        if(length(arrColi{ii}) == 4)
            arrColi{ii} = [arrColi{ii}, '0'];
        end
    end
    arrCol{i} = arrColi;
end

for i = 1:size(arrCol,2),
    for j = 1:size(arrCol,2),
        if(i ~= j)
            mat{i,j} = intersect(arrCol{i},arrCol{j});
            if(length(mat{i,j}) > 0)
                [i, j]
                [mat{i,j}];
            end
        end
    end
end

arrColAll = [];
for i = 1:size(arrCol,2),
    arrColAll = [arrColAll, [arrCol{i}]];
end
arrColAll = unique(arrColAll);

% List of ECodes sent by Dr. Burd "input_ecode.txt"
arrGmail = {'E800','E8000','E8001','E8002','E8003','E8008','E8009','E801','E8010','E8011','E8012','E8013','E8018','E8019','E802','E8020','E8021','E8022','E8023','E8028','E8029','E803','E8030','E8031','E8032','E8033','E8038','E8039','E804','E8040','E8041','E8042','E8043','E8048','E8049','E805','E8050','E8051','E8052','E8053','E8058','E8059','E806','E8060','E8061','E8062','E8063','E8068','E8069','E807','E8070','E8071','E8072','E8073','E8078','E8079','E810','E8100','E8101','E8102','E8103','E8104','E8105','E8106','E8107','E8108','E8109','E811','E8110','E8111','E8112','E8113','E8114','E8115','E8116','E8117','E8118','E8119','E812','E8120','E8121','E8122','E8123','E8124','E8125','E8126','E8127','E8128','E8129','E813','E8130','E8131','E8132','E8133','E8134','E8135','E8136','E8137','E8138','E8139','E814','E8140','E8141','E8142','E8143','E8144','E8145','E8146','E8147','E8148','E8149','E815','E8150','E8151','E8152','E8153','E8154','E8155','E8156','E8157','E8158','E8159','E816','E8160','E8161','E8162','E8163','E8164','E8165','E8166','E8167','E8168','E8169','E817','E8170','E8171','E8172','E8173','E8174','E8175','E8176','E8177','E8178','E8179','E818','E8180','E8181','E8182','E8183','E8184','E8185','E8186','E8187','E8188','E8189','E819','E8190','E8191','E8192','E8193','E8194','E8195','E8196','E8197','E8198','E8199','E820','E8200','E8201','E8202','E8203','E8204','E8205','E8206','E8207','E8208','E8209','E821','E8210','E8211','E8212','E8213','E8214','E8215','E8216','E8217','E8218','E8219','E822','E8220','E8221','E8222','E8223','E8224','E8225','E8226','E8227','E8228','E8229','E823','E8230','E8231','E8232','E8233','E8234','E8235','E8236','E8237','E8238','E8239','E824','E8240','E8241','E8242','E8243','E8244','E8245','E8246','E8247','E8248','E8249','E825','E8250','E8251','E8252','E8253','E8254','E8255','E8256','E8257','E8258','E8259','E826','E8260','E8261','E8262','E8263','E8264','E8268','E8269','E827','E8270','E8272','E8273','E8274','E8278','E8279','E828','E8280','E8282','E8284','E8288','E8289','E829','E8290','E8294','E8298','E8299','E830','E8300','E8301','E8302','E8303','E8304','E8305','E8306','E8308','E8309','E831','E8310','E8311','E8312','E8313','E8314','E8315','E8316','E8318','E8319','E832','E8320','E8321','E8322','E8323','E8324','E8325','E8326','E8328','E8329','E833','E8330','E8331','E8332','E8333','E8334','E8335','E8336','E8338','E8339','E834','E8340','E8341','E8342','E8343','E8344','E8345','E8346','E8348','E8349','E835','E8350','E8351','E8352','E8353','E8354','E8355','E8356','E8358','E8359','E836','E8360','E8361','E8362','E8363','E8364','E8365','E8366','E8368','E8369','E837','E8370','E8371','E8372','E8373','E8374','E8375','E8376','E8378','E8379','E838','E8380','E8381','E8382','E8383','E8384','E8385','E8386','E8388','E8389','E840','E8400','E8401','E8402','E8403','E8404','E8405','E8406','E8407','E8408','E8409','E841','E8410','E8411','E8412','E8413','E8414','E8415','E8416','E8417','E8418','E8419','E842','E8426','E8427','E8428','E8429','E843','E8430','E8431','E8432','E8433','E8434','E8435','E8436','E8437','E8438','E8439','E844','E8440','E8441','E8442','E8443','E8444','E8445','E8446','E8447','E8448','E8449','E845','E8450','E8458','E8459','E846','E847','E848','E880','E8800','E8801','E8809','E881','E8810','E8811','E882','E883','E8830','E8831','E8832','E8839','E884','E8840','E8841','E8842','E8843','E8844','E8845','E8846','E8849','E885','E886','E8860','E8869','E887','E888','E890','E8900','E8901','E8902','E8903','E8908','E8909','E891','E8910','E8911','E8912','E8913','E8918','E8919','E892','E893','E8930','E8931','E8932','E8938','E8939','E894','E895','E896','E897','E898','E8980','E8981','E899','E900','E9000','E9001','E9009','E901','E9010','E9011','E9018','E9019','E902','E9020','E9021','E9022','E9028','E9029','E903','E904','E9040','E9041','E9042','E9043','E9049','E905','E9050','E9051','E9052','E9053','E9054','E9055','E9056','E9057','E9058','E9059','E906','E9060','E9061','E9062','E9063','E9064','E9065','E9068','E9069','E907','E908','E9080','E9081','E9082','E9083','E9084','E9088','E9089','E909','E9090','E9091','E9092','E9093','E9094','E9098','E9099','E910','E9100','E9101','E9102','E9103','E9104','E9108','E9109','E911','E912','E913','E9130','E9131','E9132','E9133','E9138','E9139','E914','E915','E916','E917','E9170','E9171','E9172','E9179','E918','E919','E9190','E9191','E9192','E9193','E9194','E9195','E9196','E9197','E9198','E9199','E920','E9200','E9201','E9202','E9203','E9204','E9205','E9208','E9209','E921','E9210','E9211','E9218','E9219','E922','E9220','E9221','E9222','E9223','E9224','E9228','E9229','E923','E9230','E9231','E9232','E9238','E9239','E924','E9240','E9241','E9242','E9248','E9249','E925','E9250','E9251','E9252','E9258','E9259','E926','E9260','E9261','E9262','E9263','E9264','E9265','E9268','E9269','E927','E928','E9280','E9281','E9282','E9288','E9289','E953','E9530','E9531','E9538','E9539','E954','E955','E9550','E9551','E9552','E9553','E9554','E9555','E9556','E9559','E956','E957','E9570','E9571','E9572','E9579','E958','E9580','E9581','E9582','E9583','E9584','E9585','E9586','E9587','E9588','E9589','E959','E960','E9600','E9601','E961','E962','E9620','E9621','E9622','E9629','E963','E964','E965','E9650','E9651','E9652','E9653','E9654','E9655','E9656','E9657','E9658','E9659','E966','E967','E9670','E9671','E9672','E9673','E9674','E9675','E9676','E9677','E9678','E9679','E968','E9680','E9681','E9682','E9683','E9684','E9685','E9686','E9688','E9689','E969','E970','E971','E972','E973','E974','E975','E976','E977','E978','E983','E9830','E9831','E9838','E9839','E984','E985','E9850','E9851','E9852','E9853','E9854','E9855','E9856','E986','E987','E9870','E9871','E9872','E9879','E988','E9880','E9881','E9882','E9883','E9884','E9885','E9886','E9887','E9888','E9889','E990','E9900','E9909','E991','E9910','E9911','E9912','E9913','E9919','E992','E993','E994','E995','E996','E997','E9970','E9971','E9972','E9978','E9979','E998'};

for ii = 1:length(arrGmail),
    if(length(arrGmail{ii}) == 4)
        arrGmail{ii} = [arrGmail{ii}, '0'];
    end
end
arrGmail = unique(arrGmail);

% Distinct, non-null Ecodes present in the NTDB data
arrData = {'E8000','E8001','E8002','E8003','E8008','E8009','E8010','E8011','E8012','E8013','E8018','E8019','E8020','E8021','E8022','E8023','E8028','E8029','E8030','E8038','E8040','E8041','E8042','E8043','E8048','E8049','E8050','E8051','E8052','E8053','E8058','E8059','E8060','E8061','E8062','E8063','E8068','E8069','E8070','E8071','E8072','E8073','E8078','E8079','E8100','E8101','E8102','E8103','E8104','E8106','E8107','E8108','E8109','E8110','E8111','E8112','E8113','E8114','E8116','E8117','E8118','E8119','E8120','E8121','E8122','E8123','E8124','E8125','E8126','E8127','E8128','E8129','E8130','E8131','E8132','E8133','E8134','E8135','E8136','E8137','E8138','E8139','E8140','E8141','E8142','E8143','E8144','E8145','E8146','E8147','E8148','E8149','E8150','E8151','E8152','E8153','E8154','E8155','E8156','E8157','E8158','E8159','E8160','E8161','E8162','E8163','E8164','E8165','E8166','E8167','E8168','E8169','E8170','E8171','E8172','E8173','E8174','E8175','E8176','E8177','E8178','E8179','E8180','E8181','E8182','E8183','E8184','E8185','E8186','E8187','E8188','E8189','E8190','E8191','E8192','E8193','E8194','E8195','E8196','E8197','E8198','E8199','E8200','E8201','E8202','E8203','E8204','E8205','E8206','E8207','E8208','E8209','E8210','E8211','E8212','E8213','E8214','E8215','E8216','E8217','E8218','E8219','E8220','E8221','E8222','E8223','E8224','E8225','E8226','E8227','E8228','E8229','E8230','E8231','E8232','E8233','E8234','E8235','E8236','E8237','E8238','E8239','E8240','E8241','E8242','E8243','E8244','E8245','E8246','E8247','E8248','E8249','E8250','E8251','E8252','E8253','E8254','E8255','E8256','E8257','E8258','E8259','E8260','E8261','E8262','E8263','E8264','E8268','E8269','E8270','E8272','E8273','E8278','E8279','E8280','E8282','E8284','E8288','E8289','E8290','E8291','E8294','E8298','E8299','E8300','E8301','E8302','E8303','E8304','E8305','E8308','E8309','E8310','E8311','E8312','E8313','E8314','E8315','E8316','E8318','E8319','E8320','E8321','E8322','E8323','E8324','E8325','E8328','E8329','E8330','E8331','E8332','E8333','E8335','E8336','E8338','E8339','E8340','E8341','E8342','E8343','E8344','E8345','E8346','E8348','E8349','E8350','E8351','E8352','E8353','E8354','E8355','E8356','E8358','E8359','E8360','E8361','E8362','E8363','E8364','E8365','E8366','E8368','E8369','E8370','E8371','E8372','E8373','E8374','E8378','E8379','E8380','E8381','E8382','E8383','E8384','E8385','E8386','E8388','E8389','E8400','E8401','E8402','E8403','E8404','E8405','E8406','E8407','E8408','E8409','E8410','E8411','E8412','E8413','E8414','E8415','E8416','E8417','E8418','E8419','E8426','E8427','E8428','E8429','E8430','E8431','E8432','E8433','E8434','E8435','E8436','E8437','E8438','E8439','E8440','E8441','E8442','E8443','E8444','E8445','E8446','E8447','E8448','E8449','E8450','E8459','E8460','E8470','E8480','E8490','E8493','E8494','E8495','E8496','E8497','E8498','E8499','E8500','E8501','E8502','E8503','E8504','E8506','E8507','E8508','E8509','E8510','E8520','E8522','E8525','E8528','E8529','E8530','E8531','E8532','E8538','E8539','E8540','E8541','E8542','E8543','E8548','E8550','E8551','E8552','E8553','E8554','E8555','E8558','E8559','E8560','E8570','E8580','E8581','E8582','E8583','E8584','E8585','E8586','E8587','E8588','E8589','E8600','E8601','E8602','E8603','E8608','E8610','E8611','E8612','E8613','E8614','E8615','E8619','E8620','E8621','E8622','E8624','E8629','E8631','E8634','E8635','E8637','E8638','E8639','E8640','E8641','E8642','E8643','E8644','E8650','E8651','E8652','E8654','E8655','E8658','E8659','E8660','E8663','E8664','E8666','E8667','E8668','E8669','E8670','E8680','E8681','E8682','E8683','E8688','E8689','E8690','E8692','E8698','E8699','E8800','E8801','E8809','E8810','E8811','E8820','E8830','E8831','E8832','E8839','E8840','E8841','E8842','E8843','E8844','E8845','E8846','E8849','E8850','E8851','E8852','E8853','E8854','E8859','E8860','E8869','E8870','E8880','E8881','E8888','E8889','E8900','E8901','E8902','E8903','E8908','E8909','E8910','E8911','E8912','E8913','E8918','E8919','E8920','E8930','E8931','E8932','E8938','E8939','E8940','E8950','E8960','E8970','E8980','E8981','E8990','E9000','E9001','E9009','E9010','E9011','E9018','E9019','E9021','E9022','E9028','E9029','E9030','E9040','E9043','E9050','E9051','E9052','E9053','E9054','E9055','E9056','E9057','E9058','E9059','E9060','E9061','E9062','E9063','E9064','E9065','E9068','E9069','E9070','E9080','E9081','E9082','E9083','E9088','E9089','E9090','E9091','E9092','E9093','E9098','E9099','E9100','E9101','E9102','E9103','E9104','E9108','E9109','E9110','E9120','E9130','E9131','E9132','E9133','E9138','E9139','E9140','E9150','E9160','E9170','E9171','E9172','E9173','E9174','E9175','E9176','E9177','E9178','E9179','E9180','E9190','E9191','E9192','E9193','E9194','E9195','E9196','E9197','E9198','E9199','E9200','E9201','E9202','E9203','E9204','E9205','E9208','E9209','E9210','E9211','E9218','E9219','E9220','E9221','E9222','E9223','E9224','E9225','E9228','E9229','E9230','E9231','E9232','E9238','E9239','E9240','E9241','E9242','E9248','E9249','E9250','E9251','E9252','E9258','E9259','E9260','E9261','E9262','E9263','E9264','E9268','E9270','E9280','E9281','E9282','E9283','E9289','E9290','E9291','E9292','E9293','E9294','E9295','E9298','E9299','E9500','E9501','E9502','E9503','E9504','E9505','E9506','E9507','E9508','E9509','E9510','E9511','E9518','E9520','E9521','E9528','E9529','E9530','E9531','E9538','E9539','E9540','E9550','E9551','E9552','E9553','E9554','E9555','E9556','E9557','E9559','E9560','E9570','E9571','E9572','E9579','E9580','E9581','E9582','E9583','E9584','E9585','E9587','E9588','E9589','E9590','E9600','E9601','E9610','E9620','E9621','E9622','E9630','E9640','E9650','E9651','E9652','E9653','E9654','E9655','E9656','E9657','E9658','E9659','E9660','E9670','E9671','E9672','E9673','E9674','E9675','E9676','E9677','E9678','E9679','E9680','E9681','E9682','E9683','E9684','E9685','E9686','E9687','E9688','E9689','E9690','E9700','E9710','E9720','E9730','E9740','E9750','E9760','E9770','E9780','E9792','E9798','E9800','E9802','E9803','E9804','E9805','E9806','E9807','E9809','E9810','E9818','E9820','E9821','E9828','E9829','E9830','E9831','E9838','E9839','E9840','E9850','E9851','E9852','E9853','E9854','E9855','E9856','E9857','E9860','E9870','E9871','E9872','E9879','E9880','E9881','E9882','E9883','E9884','E9885','E9886','E9887','E9888','E9889','E9890','E9911','E9912','E9913','E9919','E9920','E9930','E9940','E9950','E9960','E9972','E9978','E9980','E9990'};


setdiff(arrColAll,arrRowAll)
setdiff(arrRowAll,arrColAll)

setdiff(arrGmail,arrColAll)
setdiff(arrGmail,arrRowAll)

setdiff(arrData,arrColAll)
setdiff(arrData,arrRowAll)
